home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 022 - HO Utilities - Clock Utility System.dsk / CAT.3.0.MOD.bas < prev    next >
BASIC Source File  |  2019-02-16  |  2KB  |  24 lines
  1. 10  PRINT  CHR$(21): TEXT : HOME : PRINT  SPC( 11)"CATALYST 3.0 MOD":D$ =  CHR$(4)
  2. 20  PRINT : PRINT : PRINT "THIS MODIFICATION SHOULD BE USED ONLY   FOR CATALYST 3.0."
  3. 22  PRINT : PRINT "PLEASE INPUT THE NAME OF THE VOLUME     THAT CATALYST 3.0 IS ON:": PRINT : PRINT  SPC( 19)"CATALYST": VTAB  PEEK(37): HTAB 20: INPUT "";F$
  4. 24  IF F$ = ""  THEN  VTAB  PEEK(37): PRINT  SPC( 19)"CATALYST":F$ = "/CATALYST"
  5. 26  IF  LEFT$(F$,1) < >"/"  THEN F$ = "/" +F$
  6. 27 G$ = F$ +"/CATALYST":F$ = F$ +"/CATALYST/GTK.SYSTEM"
  7. 30  PRINT : INPUT "PLEASE INSERT THE CATALYST 3.0 DISK IN  A DISK DRIVE AND PRESS <RETURN>...";A$
  8. 40  ONERR  GOTO 200
  9. 50  PRINT D$"VERIFY"F$
  10. 55  PRINT D$"OPEN"G$",TDIR": PRINT D$"READ"G$: FOR I = 0 TO 1: INPUT A$:I =  LEFT$(A$,11) = " GTK.SYSTEM": NEXT : PRINT D$"CLOSE":L =  VAL( MID$ (A$,66)): IF L <25000  THEN  POKE 222,2: GOTO 200
  11. 60 A = 4096: PRINT D$"BLOAD"F$",A"A",TSYS"
  12. 70  POKE 216,0: IF  PEEK(A) < >169  THEN  PRINT : PRINT : PRINT : PRINT "ERROR!<CTRL-G><CTRL-G><CTRL-G>  WRONG FILE.  MOD TERMINATED!": END 
  13. 80 B =  PEEK(A +1): PRINT 
  14. 90  IF B >127  THEN  INPUT "FILE IS MODIFIED!  DO YOU WISH TO CHANGEIT BACK TO ITS ORIGINAL FORM (Y/N)? ";A$:B = B -128: GOTO 105
  15. 100  IF B <128  THEN  INPUT "ORIGINAL FILE!  DO YOU WISH TO MODIFY   IT TO DISPLAY SECONDS (Y/N)? ";A$:B = B +128
  16. 105  ONERR  GOTO 200
  17. 110  POKE A +1,B: IF A$ = "Y"  OR A$ = "y"  THEN  PRINT D$"BSAVE"F$",A"A",L"L",TSYS": VTAB 19: PRINT "ALL DONE<CTRL-G>"
  18. 120  POKE 216,0: VTAB 21: PRINT "BYE": END 
  19. 200  POKE 216,0:E =  PEEK(222): VTAB 21: IF E = 6  OR E = 7  THEN  PRINT "<CTRL-G>PATH NOT FOUND.";
  20. 203  IF E = 4  THEN  PRINT "<CTRL-G>WRITE PROTECTED.";
  21. 204  IF E = 2  THEN  PRINT "WRONG GTK FILE.<CTRL-G>";
  22. 205  IF E = 16  THEN  PRINT "<CTRL-G>SYNTAX ERROR.";
  23. 210  IF E < >2  AND E < >4  AND E < >6  AND E < >7  AND E < >16  THEN  PRINT "DISK ERROR.<CTRL-G>";
  24. 220  INPUT "  TRY AGAIN (Y/N)? ";A$: IF A$ = "Y"  THEN  RUN